<%
Function getTransformURL(p_sStr)
	Dim sReturnVal

	sReturnVal	= p_sStr
	sReturnVal	= Replace(sReturnVal, "&", "&amp;")
	sReturnVal	= Replace(sReturnVal, "<", "&lt;")
	sReturnVal	= Replace(sReturnVal, ">", "&gt;")
	sReturnVal	= Replace(sReturnVal, """", "&quot;")
	sReturnVal	= Replace(sReturnVal, "'", "&apos;")

	getTransformURL	= sReturnVal
End Function

Function getTransformData(p_sStr)
	Dim sReturnVal

	sReturnVal	= p_sStr
	sReturnVal	= Replace(sReturnVal, "'", "''")

	getTransformData	= sReturnVal
End Function
%>
